home *** CD-ROM | disk | FTP | other *** search
/ DS-CD ROM 2 1993 August / DS CD-ROM 2.Ausgabe (August 1993).iso / programm / ds0257 / demo.exe / DOSERROR.DEM < prev    next >
Text File  |  1992-02-16  |  2KB  |  66 lines
  1. ; ----------------------------
  2. ; DOSERROR.DEM - Demoprogramm für die Routinen aus DOSERRORS.LIB
  3. ;                (für den A86)
  4. ;
  5. ;                (c) Bernd Schemmer 1990 - 1992
  6. ;                Letzter Update: 15.02.1992
  7. ;
  8. ; Übersetzen:
  9. ;  A86 DOSERRORS.DEM DEMOS.INC TO DOSERRORS.COM
  10. ;
  11. ; Hinweis: Die Environment-Variable 'A86' muß den Dateinamen 'MACROS.MAC'
  12. ;          enthalten und die .LIB-Dateien müssen über die Datei A86.LIB
  13. ;          erreichbar sein.
  14. ;
  15. ; ---------------------------
  16.          jmp start            ; Daten überspringen
  17.  
  18. logo  db CR,LF
  19.       db 'DOSERRORS.DEM  - Demoprogramm für die Routinen aus DOSERRORS.LIB'
  20.       db CR,LF
  21.       db '----------------------------------------------------------------'
  22.       db CR,LF
  23.       db CR,LF
  24. GETLENGTH logo
  25.  
  26. MakeMsg  msg1,       'DOS-Fehlermeldungen:',CR,LF,'--------------------'
  27. MakeMsg1 msg2, CR,LF,'Fehlernummer: xxx, Text: '
  28.  
  29. DefString NotKnownMsg, 0,'--- Fehlernummer unbelegt ---'
  30.  
  31. start:
  32.          call ShowLogo        ; Logo ausgeben und Speicherblock verkleinern
  33.  
  34.          Write_String msg1
  35.          mov cx,100           ; Fehlernummern von 1 bis 100 simulieren
  36.          mov al,1
  37.  
  38. l00:
  39.          push cx
  40.          push ax
  41.  
  42.          push ax
  43.          mov di,offset msg2+16
  44.          call Konvert_AL_To_Dezstring
  45.          Write_String Msg2
  46.          pop ax
  47.  
  48.          mov si,offset NotKnownMsg
  49.          call GetDOSErrorMessage
  50.  
  51.          mov cl,[si]
  52.          xor ch,ch
  53.          lea dx,[si+1]
  54.          mov bx,STDOut
  55.          mov ah,040h
  56.          int 021h
  57.  
  58.          pop ax
  59.          pop cx
  60.          inc al
  61.          loop l00
  62.  
  63. Ende:
  64.          EndProcess 0
  65.  
  66.